home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / disk / dirutils / mtool15.lha / MTool / Install_E < prev    next >
Encoding:
Text File  |  1993-09-06  |  3.9 KB  |  148 lines
  1. (transcript "Installation of Multitool II")
  2.  
  3. (set progdest
  4.     (askdir
  5.         (prompt "Please select a drawer for MTool.")
  6.         (help "MTool and MIndicator will be copied to the selected drawer.")
  7.         (default "SYS:Tools")
  8.         (newpath)
  9.     )
  10. )
  11.  
  12. (set @default-dest progdest)
  13.  
  14. (copyfiles
  15.     (prompt "Copying MTool...")
  16.     (source "MTool")
  17.     (infos)
  18.     (dest progdest)
  19. )
  20.  
  21. (complete 20)
  22.  
  23. (copyfiles
  24.     (prompt "Copying MI...")
  25.     (source "MI")
  26.     (infos)
  27.     (dest progdest)
  28. )
  29.  
  30. (complete 40)
  31.  
  32. (if (askbool (help "MIndicator will be able to display files compressed using XPK or Powerpacker, if these libraries are installed.") (prompt "Do you want to install the packer-libraries for MI (XPK and Powerpacker)?"))
  33. (
  34.     (copylib
  35.         (prompt "Installing Powerpacker.library...")
  36.         (source "Libs/powerpacker.library")
  37.         (dest "Libs:")
  38.     )
  39.     (copylib
  40.         (prompt "Installing XPKMaster.library...")
  41.         (source "Libs/XPKMaster.library")
  42.         (dest "Libs:")
  43.     )
  44.     (makedir "Libs:Compressors")
  45.     (copyfiles
  46.         (prompt "Installing XPK-packers...")
  47.         (source "Libs/Compressors")
  48.         (dest "Libs:Compressors")
  49.         (pattern "#?")
  50.     )
  51. )
  52. )
  53.  
  54. (complete 60)
  55.  
  56. (set vernum (getversion "exec.library" (resident)))
  57. (set ver (/ vernum 65536))
  58.  
  59. (if (> ver 37)
  60.     (if (exists "Locale:Catalogs/español")
  61.     (
  62.         (if (askbool (help "If you use Spanish as default language in your prefs and if you install the Spanish catalog, the programs will show up a Spanish user interface.") (prompt "Do you want to install the Spanish catalog file?"))
  63.         (
  64.             (copyfiles
  65.                 (prompt "Installing Spanish catalog for MTool")
  66.                 (source "Catalogs/español/MTool.catalog")
  67.                 (dest "Locale:Catalogs/español")
  68.             )
  69.             (copyfiles
  70.                 (prompt "Installing Spanish catalog for MI")
  71.                 (source "Catalogs/español/MI.catalog")
  72.                 (dest "Locale:Catalogs/español")
  73.             )
  74.         )        
  75.         )
  76.     )
  77.     )
  78. )
  79.  
  80. (complete 70)
  81.  
  82. (if (> ver 37)
  83.     (if (exists "Locale:Catalogs/deutsch")
  84.     (
  85.         (if (askbool (help "If you use German as default language in your prefs and if you install the German catalog, the programs will show up a German user interface.") (prompt "Do you want to install the German catalog file?"))
  86.         (
  87.             (copyfiles
  88.                 (prompt "Installing German catalog for MTool")
  89.                 (source "Catalogs/deutsch/MTool.catalog")
  90.                 (dest "Locale:Catalogs/deutsch")
  91.             )
  92.             (copyfiles
  93.                 (prompt "Installing german catalog for MI")
  94.                 (source "Catalogs/deutsch/MI.catalog")
  95.                 (dest "Locale:Catalogs/deutsch")
  96.             )
  97.         )        
  98.         )
  99.     )
  100.     )
  101. )
  102.  
  103. (complete 80)
  104.  
  105. (if (askbool (help "This will copy MTool_E.guide") (prompt "Do you want to install the docs?"))
  106. (
  107.     (set docdest
  108.         (askdir
  109.              (prompt "Please select a place for the docs.")
  110.              (help "It doesn't matter where you put in the docs. Preferably where you can find them...")
  111.              (default "Work:")
  112.              (newpath)
  113.         )
  114.     )
  115.     (copyfiles
  116.         (prompt "Copying docs for MTool...")
  117.         (source "MTool_E.guide")
  118.         (infos)
  119.         (dest docdest)
  120.     )
  121. )
  122. )
  123.  
  124. (complete 90)
  125.  
  126. (if (askbool (help "The DatMon font is useful in HEX-mode of MI, FineLine 11 is used for the about requester of MTool.") (prompt "Do you want to install the fonts?"))
  127. (
  128.     (set fontdest
  129.         (askdir
  130.             (prompt "Please select a place for the fonts.")
  131.             (help "If you haven't added another directory to your Fonts:-drawer, you should leave this setting on Fonts:")
  132.             (default "Fonts:")
  133.             (newpath)
  134.         )
  135.     )
  136.     (copyfiles
  137.         (prompt "Copying fonts...")
  138.         (source "Fonts")
  139.         (dest fontdest)
  140.         (pattern "#?")
  141.     )
  142. )
  143. )
  144.  
  145. (complete 99)
  146.  
  147. (exit)
  148.